sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
make object sphere 1,20
position object 1,0,0,500
set ambient light 20
color ambient light rgb(64,64,128)
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
wait 1000*8
hide light 0
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
sync
endwhile
delete object 1
end